home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / c / amiexpress / source / ae / encrypt.s < prev    next >
Encoding:
Text File  |  1996-02-18  |  5.5 KB  |  131 lines
  1.  
  2.         opt    o+,ow6-,w+,c+,l+,p=68030,autopc
  3.  
  4.         xdef    _AECryptCmp
  5.         xdef    _AECryptStr
  6.         xdef    _AECryptCpy
  7.         xdef    _AEClearMem
  8.         xdef    _crctab32
  9.  
  10. *******************************************************************************
  11. * AECryptCmp:
  12. * ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
  13. * $Inputs:    a0.L = GSTR3
  14. *        a1.L = User.Pass (ptr to 1L containing ENCRYPTED CYPHIERKEY
  15. * $Outputs:    d0
  16. *******************************************************************************
  17.  
  18.         cnop    0,4
  19. _AECryptCmp:    bsr.s    _AECryptStr
  20.         cmp.l    (a1),d0            ;are both cyphiers identical ?
  21.         bne.s    cyphier_fail        ;if not... passkey is WRONG!
  22.         moveq    #0,d0            ;return = SUCCESS
  23.         rts
  24.         cnop    0,4
  25. cyphier_fail:    moveq    #-1,d0            ;return = FAIL
  26.         rts
  27.  
  28. *******************************************************************************
  29. * AECryptCpy:
  30. * ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
  31. * $Inputs:    a1.L = GSTR3 (source)
  32. *        a0.L = User.Pass (destination)
  33. * $Outputs:    None.
  34. *******************************************************************************
  35.  
  36.         cnop    0,4
  37. _AECryptCpy:    exg.l    a0,a1
  38.         bsr.s    _AECryptStr
  39.         move.l    d0,(a1)
  40.         rts
  41.         cnop    0,4
  42.  
  43. ******************************************************************************
  44. * AECryptStr:
  45. * ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
  46. * $Inputs:    a0.L = GSTR3 (ASCIIZ String Ptr)
  47. * $Outputs:    d0.L = CYPHIER KEY or 0 if failed
  48. ******************************************************************************
  49.  
  50. _AECryptStr:    movem.l    d1-d4/a1,-(sp)        ;push used registers to stack
  51.         moveq    #0,d0
  52.         move.l    a0,a1
  53.         tst.b    (a1)            ;is user input string null?
  54.         beq.s    NullStr            ;if so .. exit.. input error
  55.         moveq    #-1,d4            ;0-1
  56. GetStrLen:    addq.l    #1,d4            ;inc count
  57.         tst.b    (a1)+            ;count string length
  58.         bne.s    GetStrLen        ;d4=String Length
  59.         lea    _crctab32(pc),a1
  60.         moveq    #8,d2
  61.         moveq    #-1,d3
  62. DoCRC:        moveq    #0,d1
  63.         move.b    (a0)+,d1
  64.         eor.b    d0,d1
  65.         and.w    d3,d1
  66.         move.l    (a1,d1.L*4),d1
  67.         lsr.l    d2,d0
  68.         eor.l    d1,d0
  69.         subq.l    #1,d4            ;decr length
  70.         bne.s    DoCRC            ;d0.L = 32-bit CRC
  71.         swap    d0            ;swap low and hi words
  72.         not.w    d0            ;not low word
  73.         roxl.l    d0,d0            ;rotate x amount of bits
  74.         neg.l    d0            ;not the whole expression
  75. NullStr:    movem.l    (sp)+,d1-d4/a1        ;pull used registers from stack
  76.                         ;d0.L = Encrypted PassCyphier
  77.         rts
  78.  
  79. *****************************************************************************
  80. * AEClearMem:
  81. * ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
  82. * $Inputs:    a0.L = GSTR3 (MemPtr)
  83. *        d0.L = Length
  84. * $Outputs:    None.
  85. ******************************************************************************
  86.  
  87.         cnop    0,4
  88. _AEClearMem:    movem.l    d0-d7/a0-a6,-(sp)
  89.         tst.l    d0
  90.         beq.s    nochars
  91.         subq.l    #1,d0
  92. clsloop        sf.b    (a0)+            ;decr length
  93.         dbra    d0,clsloop        ;d0.L = 32-bit CRC
  94. nochars:    movem.l    (sp)+,d0-d7/a0-a6
  95.         rts
  96.  
  97. ;/* [CRC Polynomial $EDB88320] */
  98.  
  99. _crctab32:    dc.l    $00000000,$77073096,$EE0E612C,$990951BA,$076DC419,$706AF48F,$E963A535,$9E6495A3
  100.         dc.l    $0EDB8832,$79DCB8A4,$E0D5E91E,$97D2D988,$09B64C2B,$7EB17CBD,$E7B82D07,$90BF1D91
  101.         dc.l    $1DB71064,$6AB020F2,$F3B97148,$84BE41DE,$1ADAD47D,$6DDDE4EB,$F4D4B551,$83D385C7
  102.         dc.l    $136C9856,$646BA8C0,$FD62F97A,$8A65C9EC,$14015C4F,$63066CD9,$FA0F3D63,$8D080DF5
  103.         dc.l    $3B6E20C8,$4C69105E,$D56041E4,$A2677172,$3C03E4D1,$4B04D447,$D20D85FD,$A50AB56B
  104.         dc.l    $35B5A8FA,$42B2986C,$DBBBC9D6,$ACBCF940,$32D86CE3,$45DF5C75,$DCD60DCF,$ABD13D59
  105.         dc.l    $26D930AC,$51DE003A,$C8D75180,$BFD06116,$21B4F4B5,$56B3C423,$CFBA9599,$B8BDA50F
  106.         dc.l    $2802B89E,$5F058808,$C60CD9B2,$B10BE924,$2F6F7C87,$58684C11,$C1611DAB,$B6662D3D
  107.         dc.l    $76DC4190,$01DB7106,$98D220BC,$EFD5102A,$71B18589,$06B6B51F,$9FBFE4A5,$E8B8D433
  108.         dc.l    $7807C9A2,$0F00F934,$9609A88E,$E10E9818,$7F6A0DBB,$086D3D2D,$91646C97,$E6635C01
  109.         dc.l    $6B6B51F4,$1C6C6162,$856530D8,$F262004E,$6C0695ED,$1B01A57B,$8208F4C1,$F50FC457
  110.         dc.l    $65B0D9C6,$12B7E950,$8BBEB8EA,$FCB9887C,$62DD1DDF,$15DA2D49,$8CD37CF3,$FBD44C65
  111.         dc.l    $4DB26158,$3AB551CE,$A3BC0074,$D4BB30E2,$4ADFA541,$3DD895D7,$A4D1C46D,$D3D6F4FB
  112.         dc.l    $4369E96A,$346ED9FC,$AD678846,$DA60B8D0,$44042D73,$33031DE5,$AA0A4C5F,$DD0D7CC9
  113.         dc.l    $5005713C,$270241AA,$BE0B1010,$C90C2086,$5768B525,$206F85B3,$B966D409,$CE61E49F
  114.         dc.l    $5EDEF90E,$29D9C998,$B0D09822,$C7D7A8B4,$59B33D17,$2EB40D81,$B7BD5C3B,$C0BA6CAD
  115.         dc.l    $EDB88320,$9ABFB3B6,$03B6E20C,$74B1D29A,$EAD54739,$9DD277AF,$04DB2615,$73DC1683
  116.         dc.l    $E3630B12,$94643B84,$0D6D6A3E,$7A6A5AA8,$E40ECF0B,$9309FF9D,$0A00AE27,$7D079EB1
  117.         dc.l    $F00F9344,$8708A3D2,$1E01F268,$6906C2FE,$F762575D,$806567CB,$196C3671,$6E6B06E7
  118.         dc.l    $FED41B76,$89D32BE0,$10DA7A5A,$67DD4ACC,$F9B9DF6F,$8EBEEFF9,$17B7BE43,$60B08ED5
  119.         dc.l    $D6D6A3E8,$A1D1937E,$38D8C2C4,$4FDFF252,$D1BB67F1,$A6BC5767,$3FB506DD,$48B2364B
  120.         dc.l    $D80D2BDA,$AF0A1B4C,$36034AF6,$41047A60,$DF60EFC3,$A867DF55,$316E8EEF,$4669BE79
  121.         dc.l    $CB61B38C,$BC66831A,$256FD2A0,$5268E236,$CC0C7795,$BB0B4703,$220216B9,$5505262F
  122.         dc.l    $C5BA3BBE,$B2BD0B28,$2BB45A92,$5CB36A04,$C2D7FFA7,$B5D0CF31,$2CD99E8B,$5BDEAE1D
  123.         dc.l    $9B64C2B0,$EC63F226,$756AA39C,$026D930A,$9C0906A9,$EB0E363F,$72076785,$05005713
  124.         dc.l    $95BF4A82,$E2B87A14,$7BB12BAE,$0CB61B38,$92D28E9B,$E5D5BE0D,$7CDCEFB7,$0BDBDF21
  125.         dc.l    $86D3D2D4,$F1D4E242,$68DDB3F8,$1FDA836E,$81BE16CD,$F6B9265B,$6FB077E1,$18B74777
  126.         dc.l    $88085AE6,$FF0F6A70,$66063BCA,$11010B5C,$8F659EFF,$F862AE69,$616BFFD3,$166CCF45
  127.         dc.l    $A00AE278,$D70DD2EE,$4E048354,$3903B3C2,$A7672661,$D06016F7,$4969474D,$3E6E77DB
  128.         dc.l    $AED16A4A,$D9D65ADC,$40DF0B66,$37D83BF0,$A9BCAE53,$DEBB9EC5,$47B2CF7F,$30B5FFE9
  129.         dc.l    $BDBDF21C,$CABAC28A,$53B39330,$24B4A3A6,$BAD03605,$CDD70693,$54DE5729,$23D967BF
  130.         dc.l    $B3667A2E,$C4614AB8,$5D681B02,$2A6F2B94,$B40BBE37,$C30C8EA1,$5A05DF1B,$2D02EF8D
  131.